home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / pansi2.zip / PLAYME.BAS < prev   
BASIC Source File  |  1992-07-24  |  277b  |  13 lines
  1. 'A lone play command is present in this module so error trapping is
  2. 'seperate from the main module. This decreases the size of the driver.
  3. DEFINT A-Z
  4. ErrorHandler:
  5. RESUME NEXT
  6.  
  7. SUB playme (A$)
  8.     ON ERROR GOTO ErrorHandler
  9.     PLAY A$
  10.     ON ERROR GOTO 0
  11. END SUB
  12.  
  13.